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te BEGIN COMMUNICATEC= L193 00016800 Is 
eo” BRAAK t= BOOLEAN(T)3 & MCP RETURNS 3 IF BREAK UCCURRED,. 00016900 i@ 
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i makes BEGIN. cht Ne  N0017 60.0... 7 ss — ks oh ie pees 2 24 
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ener erases ENO ELSE TALLY isgs oho ajuda a lieMen elt) octets ae OOUL BOO Gs i.e sts. ts coche oe te ieee eat is 
fay NSSTALLY3 SIs*L cc Nj D1?=SIZ3. “DSt=WDS;_ 00018300 | 
@» END PROCEDURE NCONVS 00018400 | @ 
a 7 ROLE eC CECT Eee eC ee ee ee eee ee ree ir ee ea rere eee mr ero) entre. cele wis REECE ean Ga asic ae xa 
" REAL STREAM PROCEDURE MICAsNeSIZ)5 VALUE Ne S123 00018606 34 
@* BEGIN 00018700 4@ 
ieee —DIPSAs OSSE7LIT"RECORD "5 STP=LOC Ni OSts SIZ CHRs OU B BOO gS ocala etgetcnaah wns oan, Yor eet aa? 
xf OSt=9 LIT " DELETED,"3 TALLYS=163 MytsTALLY3 00018900 
@. END STREAM PROCEDURE M13 00019000 @ 
see Kem eedeeenaasbabesaseasraerneetetetesnveteset. Wi, SO ase opeoeseraeeerasers 00019100 | ant ad de AOE Set Io a ate 2 
“| REAL STREAM PROCECLRE M2CArNeS1Z)5 VALLE NeS1é 00019200 “9 
@ BEGIN 00019300 «|@ 
1 MD LEAR DSPF7LIT"RECORD "JZ STPELOC Né OSt=SIZ CHAS Scene . 99949400 me ane a4 
i OStz21LI7" IS NCT IN YOUR FILEe"s TALL Ys=283 M2S=TALLYS 00019500 & 
@ |. END STREAM PROCEDURE M23 00019600 4@ 
Saale eres oe a O22 08 e Oe abet eee eae tee pea w et eee aaa te eae ane tan aeenaecccn ccc s nec e902 09919700 | Sheath Bate rs. te a aa ieee i 
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! REAL STREAM PROCEDURE MS5CAsNeSIZ)3 VALUE No SIZ; 00021000 
| BEGIN 00021100 rd] 
Sate! DIGSAs DStE4ILIT"CANNOT LOCATE YOUR + JX STRING FOR RECORD "3 QQdei20¢ sss. 
f\ SI&sL0c N3 OSts SIZ CHR} TALLYt=415 MS8sTALLY3 00021300 
2 END STREAM PRGCEDURE M53 00021400 1@ 
ee att a ¢ .} 22.92.9295 0092 8 ef pee eaeanspeaoaase@nvnen tans Sa eaasoavneaganpea Peas atesnsnssenccnensene ns GQOUZ1500 | Fetelant, eagehe theta 2 tibedicn dee lS 3 
4 REAL STREAM PROCEDURE MOCAsNoSI1Z)5 VALUE NeSId; 00021600 4 
Is BEGIN 00021700 |@ 
So DISSAS DSPS3I9OL IT" NOT ENOUGH ROOM FOR YOUR FIX IN RECORD "3 3 00021800 ss see 8 
/ SI%=LOC N$ DSte SIZ CHR$ TALLY%=393 M6SSTALLY3 00021900 7 
8 END STREAM PROCEDURE m63 | 00022000 1@ 
i eer rere es eee ee ee eh ee 2 : - pteccreoevoressesccesovsnsssceess 00022100 |... 9 
wal REAL STREAM PROCECURE m?CAsNsS12Z)3 VALUE No S143 00022200 19 
t BEGIN 00022300 1@ 
mo OTRAS SIPSLOC NS DSt=STZ CHRS le a ae 2 DONS R HOO a. 12 
3 OSts25LIT* EMPTY RECORDS DISCARDED+"s TALL Y:3253 M7S=TALLYS 00022500 13 
I END STREAM PROCEDURE M73 00022600: 1@ 
Mla cts Babe ete rene & 2.9.9.9 6029 ©2808 oe eee n tae heiegeeo8ee eS oaena Beane esa. evince Goceon ee eS ae SNe tS 
6 REAL STREAM PROCEDURE M@CAsNeS1Z)3 VALUE NoSI]da 00022800 16 
iy BEGIN 00022900 \@ 
ny Eee DI&sAs. SIASLOC Ni DSte SIZ CHRA OO 23000... Sa eee A eet eno 8 
ts DSt246LIT" RECORDS DISCARDED (MISSING SEQUENCE NUMBERS )e%3 00023100 . i 
20 TALLY8=463 MBESTALLYS 00023200 re 
END STREAM PROCEDURE MBs. 02 8800. pga tn eee . 2 
ae Sassari BU ate ek AES Sse Sie Ga Sr ESRI Oe OEE tO a ec Be oa hss tek ares oe COU OHGG i 
3 REAL STREAM PROCEQURE M9CAsNsSIZ)3 VALUE Ne SIZ} 00023500 23@ 
Wo os ain ge Sia ne RGN toe ee hn Re eT ey UN, 61 015 012 a ne 24 
5 DIt*as SItSLOC Ns DS#= SIZ CHAS 00023700 2 
8 DSt=30LIT" RECORDS TRUNCATED (TOO LUNG)«"s TALLY%5303 M9O%STALLYS 00023800 | 2 @ 
} caw END STREAM PROCEDURE mop 2 Bags Dea Ro Aa oe ota tot Ee SOOO) Caer case lid ee ta se a pi re ee 2 
cs Ua a RHA ek 6 PEER SION be Eo nie UE wea hare ee O00 A006 28 
REAL STREAM PROGEQURE M10(A)3 00024100 3 @ 
: a BEGIN DEtsaZs OSSS5 IT WALT «3 TALLY2555 MLOS=TALLYS ENDS SOOO LW OOO na ntti ha lie 30 
a eR Pr ae cnet Pew aen a Taree yi Or enn Penner eC i Ee E (oy 17. at 
e SEQ 1= NCONV(SEQsSIZ)3 00024400 | 1@ 
at ae eee AF. NOS LT THEN SZteMi CAs SFQe,ST7) ELSE ao OezeGOO BG 
ce IF NO=2 THEN SZ%=MoCArSEQeSIZ) ELSE 00024600 be 
Ps IF NOS3 THEN SZt=5M3(AySEQ*SIZ) ELSE 00024700 3@ 
py NOY THEN SZtava(AsSeQeSIZ2) ELSE BOO 3e 
Pv IF NO®5 THEN SZ8eMSCAsSEQeSIZ) ELSE 00024900 . a 
ps IF NO™6 THEN SZtsM6CAsSE@*SIZ) ELSE 00025000 | 341@ 
jE BE THEN SZtemM7(CAsSEQeSIZ) ELSE SIO es ‘- a 
t IF NO®8 THEN SZt=MaCAsSEQ*sSIZ) ELSE 00025200 ‘ 
a1 IF NO®9 THEN SZ%=MQCAsSEQ*SIZ) ELSE 00025300 /@ 
mtC—(‘_é‘CNN BEGIN. SZ3=M10C€AD3 SIZ8=03 ENDS 00025400 | Fe ee ee ee Nae TT a Oe RI 42 
ae THXOUTCALOS+ (STZ4872) 9195 00025500 7 4 
. END PROCEDURE MSG} yuv25600 : | a®@ 
Mite ee ERINE TEEeCiP CE The Gees ECG ae 025700  ._—s«sdsy{ te isiatee Sega ee ene Ns sie 2 | 48 
DEFINE TRBSCIF SB THEN DS:=SET ELSE UStsRESETSSKIP $B)#3 25800 is 
47 DEFINE FTC#S1t=#S14+33 CIs=O14+53 SKIP 3 OBs15TR|SS tiny: «@ 
fe _.___ DEFINE CTFSSIls=ssl+55 SKIP 3 Sas VISSUI43s15TROHS — —  CRBOVO— i ese 4g 
s RUNNER EERE EERE EERE ER A ae EH ROOOZ6100 49 
STREAM PROCEDURE RETURN(A,B)3 00026200 so @ 
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2 BEGAN LUCAL AT? BTa uUuvVeu400 
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StssLOC BTs Olss_oc As CTF3 00026700 : 65 
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cr : : Ture 7 a, r @ 
| DItsBTs ST&s_LOC As OSt=WwpS; 00027000 
| END: 00027100 e 
SG Aten th cueee vend OI IOI IOI UII UIOISIGISIOIISIUICIGIGISIDIOIUIGIDISISISII ISIS DIOII III i cto ici iit 400027200 - Se Fe pee ee I a sess tere pty Aas Sake ae 
i" PROCEDURE SWAPS 00927300 : 
? tr eae ta eee pene ne neo aT eD . |@ 
ee BEGIN. ia crete shasta, thats PONE Bae 029075 A102» A Re Re ae ta nee ee ee | 
4) ARRAY TSsTMCG8193— 00027600 
- RETURNCSORTAsTS)3 RETURNCMERGEsTM)5 00027700 |@ 
Odeon ENO. PROCEDURE SWAPS eeoee Lone 00027800... tiga OO Ne eI 2 Na So aa Se 
4 EWN ORR HEE eRe He HERAE HN EEAEGEATEREAET OM AAE MORE R REA AHERN AREER EEEENEOOUZ7O0O a 
. REAL STREAM PROCEDURE DECONV(X23 VALUE X3 00028000 . |@ 
Wodiom ages: BEGIN SI$s_Oc Xs Drtsinc DECONVS OSts 8 veces ENDS. ROO OR a Gace edited ceca ey rl eee : 
19, CO ERR EERE RAHA AEA OREN ARE WARE ERROOUZBIO | 19 
‘ REAL STREAM PROCEDURE OCTCONV(X)3 00028300 |@ 
ses oe BEGIN. SLliexe Di ts_ec OCTCONVs DSi2B GCs ENDS. Bett eae rR aa So OO OREO) coax) oe taht emer ee te eat a ae oi 
9 RANGER RE NRE REE EEE ERERERRA MRE E HAE eEAH MEN eed ARMADA RE REE HEEHOOOZB5OO 
M REAL STREAM PROCEDURE WHEREIS(X)3 *% GET ADDRESS UF x" 00028600 
i Poe BEGIN SI%*X} WHERETS$2S03 FNDS ce OOO AZB7 OO 
ing OUI EAE EER EA AHIR KEE HE AAA NAHE AR EMEA SEMA AER EEE ROOOZBBOD 
(7 REAL PROCEDURE SIZ(A1sA2)3 VALUE AlsAa; REAL AlsA25 & GET SIZE FROM ADRSO0O0ZB900 
| ee ane Sete a2el33t151°Al AL»AL3IBII5S J Beale LI0FZI@AI CIOI3)3 00929000 
it JUEEEIEIIEI EIS ISIIBEISOI OIE IIGOI IOI EOIOUICUOIEUISOH OOS Oi Oioiiiiiorkinnsiiri#00029 100 
uy PROCEDURE TWXREADCSFLGsSEQMODE DS VALUE SFLGs»SEQMQUDEJ BOOLEAN SFLGsSEQmMQDE3 00029150 
1 ert ee ME TITESTTITESST LATEST CCE TESTS e TTT E ST TT ET TOTES TT Se TTT Tee TTT eT eye eee re eer CTT TT Te 
ee BEGIN 00029250 
= % SFLG IS TRUE IF SEQUENTIAL TYPE FILE 00029300 
ON 5 ee Bact A.SEQMODE.IS TRUE IF "TAPE SEQUENCE” aie Saas See etl ete OOUPLO SSO" 
25 REAL LINKPTRsMINPTRsSEQPTReMAXPTR>» PIR1,» ,PTR2eLPTRE 00029400 
ba REAL BLNKCNTs TRNCNTs ERRCNT» SEONUsNe I+ S1ZEs S264» SZ 19 TOKENS 00029450 
i tsi ABEL READS Ne BR RG EPS 0 be gk 8 poe ee ee ee OURO SOO Oe 
8 BOULEAN CKSEQ3 00029550 
23} , BGS oo 05:0 AG 0 8G Ol Od apes oO We WELe eG WOR OE * OSS RW ee we Heese © KN eww Ne Re he abe eae OUUEesb00 
oo REAL STREAM PROCEDURE FINDARROW(LINKPTReMINPTReMAXPTRePTR2)5 = PO BS ioe: eee! ccd jen 
%. Seecaeaeteoeeoeenan le eee oie nap aRWw We bind G4 bs we a ta A nwis Chea ee O0eO7 U0 
a VALUE CINKPTReMINPTA,VAXPTRE 00029750 
jg cone ..BEGIN LOCAL SV3 LABEL LeEXITe 0029800 pian ab onc ai cc an dle he nn aa hs Mo a as es Surge 
Pr 00029810 - 
35 % SEARCKES FOR GRCUP MaRK IN INPUT RECORD» RETURNS ADDRESS TO PTR2 00029850 3 @ 
is) Eee arate ..% LINKPTR IS ADDRESS OF FIRST CHARACTER BELOW START GF _RCORD 00029900 st OA Set tak i eos Se i 
3s % MINPTR IS ADORESS OF FIRST CHARACTER [IN [NPUT RECORD 00029950 i 
36 % MAXPTR Is ADDRESS OF MAXIMUM CHARACTER POSITION ALLOWED IN RECORD 00030000 3 @ 
(ee eee ere _ RETURNS 0 FOR NO GROUP MARK ¢ TRUNCATED RECORD 2 = = = 0030050 = 
. % RETURNS 1 FOR EMPTY RECORD ¢ GROUP MARK 3 FIRST CHARACTER. +) 00030100 40 
- % RETURNS 2 FOR VALID RECORD ¢ GROUP MARK NEG FIRST CHARACTER ) 00030150 «|@ 
eee 4 RETURNS 3 FOR END OF INPUT ¢ QMK = FIRST CHARACTER ) _ 00030200 eins ece tet des Hoe : : et SP I 
1 SL a=MAXPTR3 % START AT END OF INPUT RECORD 00030250 4 
i“ Lt IF SC®LEFTARROW TREN % CHECK FOR POSITIUN OF GROUP MARK 00030300 4@ 
Me acnncerese ene ene ee ee «| 2° 9, Ee eee ee Tee FR ee ere ee ee moe _ 00930350 a 
SVESSTZ STtslLAc SVZ OLSsPTR23 USt=WOS; % AGDRESS OF GROUP MARK 00030400 > 46 
SIteLOC Svs SItsSl+53 DIsslLOC LINKPTRS OLsSD145; 00030450 | 
. JF 35SC=pC THEN GO TO EXITS & TRUNCATED RECURD» R ETURN ZERO = 00030500, ee ee 48 
“SiteSl=33 DI@sL oc MINPTR} OTF sDI4+53 00030550 ' 44s 
IF 3SC=DC THEN X EMPTY RECORD 00030600 : “4 @ 
oe BEGIN TALL ¥8a1s GO TO EXITS ENDF Bae iia scam ta beeches ree OI a 4s aides ahh Gc tot et ek a 
“SIteMINPTR3 IF SC GTR "9" THEN TALLY:=3 ELSE TALLY?#= s25 00030700 5: 
GQ TO EXIT 00030750 @ 
ane ENDS &% IF GROUP MARK FOUND = 009030800 att, toes oe es enn 54 
“SyrsSte ts GO TO LS % CONTINUE SEARCHING FOR GROUP MARK 00930850 . 55 
EXIT! 00030900 so @ 
HF INDARROWSSTALLYS & RETURN RESULT Neate a fons ____00030950 y 


OTs=MAXPTR$ OSt=LIT LEFTARROWSs & PLACE MARKER AT END OF RECORD 009031000 
@ END STREAM PROCEDURE FINDARROWS 00031050 
re ee eee ha Be Pee er Ma eee eee eee ee ee Se Se eee ee ro a a or rar or or oe Oy Or Or ae ar Oe ee ry 2000.3 1 100 
fu REAL STREAM PROCEDURE NEXTOKENCPTRIsPTR2sTOKEN)S VALUE PTR23 00031150 
@ a CURCET CCLRC eT RAE CEE CORTE CTE ET UT TET Cee ECE Tee Tee CECT TE TET Oe oe rer6 
eae BEGIN. LOCAL TeSVi. LABEL Le EXxI Ts... seeteates, tle ates cs Sete, ne Lat at - 00031250. 
% PTRL TS ADARESS CF NEXT CHARAC IER IN TwPUuT. ‘RECORD 00031300 
@° % PTR2 IS ADORESS CF END UF INPUT RECUR) 00031350 
Esl eee % RETURNS O. FOR BLANK STRING is . 00031400 
’ 00031410 
: 00031420 
[+---. sci aa: Z peta aia att cb anit ai a A a ca aceite <a at Se Hes ef A en ak en pre's pon BME NN ~ ae 
iro 8 RETURNS 1 FOR SPECIAL CHARACTER | 00031450 
eo: ® RETURNS 2 FOR NUMERIC STRING C SEWUEKCE NUMBER ) 00031500 
ee we RETURNS. 3 FOR ALPHABETIC STRING C "FIX" REQUEST 90 pa, . 
% ¢€ PROGRAM ADJUSTS VALUE TO 4 IF aA DELETE REQUEST ) 00031600 
r ST?SPTR1s3 SI8SST+53 Sys=Sc3 & POINT TO START UF INPUT STRING 00031650 
fee sie at L? IF SC3" " THEN. ede Benge AA RAE RENE AT 
co BEGIN SI?sS1413 GO TO L3 ENDS 00031750 
IF SC=ALPHA THEN ELSE & SPECIAL CHARACTER 00931800 
DIS=TOKENS OSts7LIT"O"; DSteCHR; Sliesl=13 00931900 
IF SCSLEFTARROW THEN % CHECK FOR END OF RECORD 00031950 
BEGIN... oss hava a asaiselne kta ral eh cae Sead arate tasted teeth nt a lat aha OO ed 2) OL 2 a! 
SVs=SI3_ “Slts_oc” SV; STs3S1l+45s OLlss_OcC PTR2s DL s=eDI +53 00032050 
IF 35C NE@ DC THEN TALLY#513 & NOT ENO OF RECORD 00032100 
SItFSV3. GO Te ExXITs. Fe ea ets Ee Re 00032150... 
END ELSE SItsSl¢13 % weSEQ INDEX IF NOT GROUP MARK 00032200 
TALLY 8345 GO TO EXIT; 00032250 
ENDS % TF SPECTAL CHARACTER S88 in Se a ne 
IF SC GEQ "O" THEN IF sC LEw "9" THENS & NUMERIC TOKEN 00032350 
IF TOGGLE THEN 00032400 
6 atten ci EOIN se Se EN ah ll oh cle AN deel eh OOO SEDO 14.8 
SvteSt} SissStoq3 TALLY#343— 00032500 
7CIF SC GEQ "@" THEN IF SC LEW "9" THEN3 00932550 
- IF TOGGLE THEN ELSE JUMP GUTS SIssSl+ys TALLYSSTALLY+1)3 | —--- 90832600. 
TESTALLYS STt=SV3 DLTFSTORKENS Ust=T OCTS 00032650 
TALLY*323 GO TO EXITS 00032700 
: END TF NOME 0 Na an arated Pia s Soam ued ne eer ate el 
“% ALPHABETIC TOKEN 009032800 
DIt=TOKENS DSIsALIT"d "3 DIFSDI"75 OS2FCHR; 00032850 
_OCTF SCSALPHA THEN IF SC LEQ "O" THENS OO 00032900 
IF TOGGLE THEN ELSE JUMP OUTS DStFCHR); 00032950 
TALLY&=33 00033000 
_AXIT _.... 00933050. 
SviaSI3 SItsa_loc SV3_ ‘OItsPTRLs DStswOSs— NEXTOKENS=TALLYS 000331400 
END STREAM PROCEDURE NEXTOKENS 00033150 
ao Rarensetsos A.2 28 a8 e et eae ae tats a aes ee oaaateaeaeonatana te aa tana eaepeatesevsas aso a02900 33200 Se ra Bet Ne ain 2 ator 
STREAM PROCEDURE PLACEMARKERCPIR)3 VALUE PTR 00033250 
REGGAE E OEE GAG OE UES DEO DF 6 OWE EOE EEN DEEOG OM ONAN WE CREAN SSA OES CSN HO ee COONIIZ00 
BEGIN Se nee te are ett od cece eee ey SO OOS IIS.» 
DItePTR3. DStslLiT LEFTARROW} 00033400 
END STREAM PROCEDURE PLACE MARKERS 00033450 
neat eee Re SPOOR ORR PeteesenaP sare PoeaeeeeM aeons eoearet aM nvoorereeneesersesananenes' ) 0 10335! QO. 
STREAM PROCEDURE REFORMATCPTR125 2642921 sSFLGsSEQHTR »SEQNOSB)S 00033550 
LER ERREREORE OCC E eee Re eee ee ee ee ee oe ee errr ns i Ole c V.ef6) 
_... VALUE PTR1sSZ645SZ2 1 oSFLG»SEQPTR»s SEQnUs — ep Ga 1 OOO SIG S03. 1! 
BEGIN 00033700 
% PTR1 IS ADDRESS OF FIRST TEXT CHARACTER IN INPUT RECORD 00033750 


_%&_SZ4 IS NO.OF CHAS TO BFE TRANSFERRED Oly 44 0 


= OOO S15 SO cece nies cate a 


OOO SASF OO 3 cs siscsetcemneans Jeyher ane 


on GG 9927300 


OOQ3 3800 


Data Documents/inc. 


%’ SZ1 [S NO.OF CHRS To BE TRANSFERRED mud é4 00033850 
& SFLG=TRUE IF SEG.NU. IS TU BE PLACED IN OUTPUT RECURD 00033900 
on Zz . fH SEQ@PTRO IS. ADDRESS OF SkQ@.NOe FUSTTION IN OUTPUT RECORD. -0u033950 
. % SEQNO IS OQCTAL VALUE OF SEQUENCE NUMBER 00034000 
; % "B" ITS OUTPUT ARRAY 00034050 
ee —OErsBs DStsBL ITM Me STi SRs OSERPNUS SL ee ene 0.034400 | 
a SrssPTR1z D1e3B3 00034150 
* $Z64(2°0D0S%=32CHR))3 USs=SZ1 CHR: 00034200 
Pee IR Ne ed SELGC(STISLOC SEQNO} DISSSEQPTRS OSt=8DEC)s 2 90084250 sis” 
; END STREAM PROCEOURE REFORMAT 00034300 
. scANER INE RL EER Acc AG RTECS ea Oa on eae enema DI0 IN 150 
9 DEFINE MATCHCMATCHLsMATCH2)s Mie: ~ 009034400 
( REALCBOOLEANC(MATCH1) EQV BUGLEANCMAICHZ))=REALCNUT FALSE) #3” 00034450 
u, POET ESET OLE Pao ea ae 
Vn ee ALOE SBLO1LS0} % MAKE SAVE ARRAYS PRESENT. . ~ 00034550. 
a MINPTRISWHEREISCACO))3 % ADDRESS OF START OF INPUT RECORD | 00034600 
i LINKPTRS®(MINPTR™1)87(3084533)3 PLACEMARKER(LINKPTR)3 00034650 
rm SE OPTRISWHEREIS(B(9))3 a ae aad eo he, at , 00034700. 
ik CKSEQ2SSFLG AND NOT SEQMODEs 00034750 
7 MAXPTRS=SMINPTREG+ 00034800 
mr I NOT SFLG OR CSFLG | AND NOT SEOMOQLE) THEN 1 FUSE gs Per _ 900034850. 
% “PPTR t= PATCNT 23 PREV t= 943 00034900 
20 READINS 00034950 
READ CTWXESTOP) +11, AC*J)3 PTIRISSMINPTRS Bic 90935000 | 
2 IF (NSSF INDARROWCLINKPTR»MINPTR»MAXPTRsPTRe))s3 TREN GO TO EXxlT3” 00035050 
23 IF Net THEN % EMPTY RECORD ( GROUP MARK UNLY ) 00035100 
PA cdot se REGEN! lian te ot cn in elegy earls shat Mentate lt Sia Asta, Segoe MD Bs VO, ncn.s6 5c aauatl ote ea 
a BLNKCNT?=BLNKCNT#+13_ GO TO READING 00035200 
76) ENO} 00035250 
i ee —.LF NSO THEN % TRUNCATED RECORD aon 
20 BEGIN 00035350 
TRNCNTSSTRNCNT4#14 PTROSMAXPTRS 00035400 
PENDS vee PONSSHSO 
34 IF onsee THEN & SEQUENCE NUMBER SHOULD APPEAR ‘IN INPUT RECORD 00035500 
is EGIN 00035550 
a mi CNESNEXTOKENCPTRI sPTR2s TOKEN) ) 50 THEN & BLANK RECORD | _.. 00035600 | 
a4 BEGIN 000 35650 
8 ERR§ ERRCNT?=sERRCNT*+13 GO TO READING 00035700 
7 ee ... ENDS atin lecaelleB ah oiler ct OOOSOT OO 4 
” If Nal THEN & SPECIAL CHARACTER 00035800 
Sb If TOKEN NEQ "*" THEN GO TO ERR ELSE ® ONLY "*" ACCEPTED 00035850 
4a) _... BEGIN N2"33 G0 TO FIXCK3 ENDS 4 MARK. AS "FIX" REQUEST. N53) = 00035900 | 
; IF Ne3 THEN & ALPRABETIC STRING 00035950 
IF MATCHCTOKENs "FIX ") THEN 00046000 
= BEGIN 00036050 
FIXCKItIF CNEXTOKENCRTRiePTRe»TOKEN)) NE@ & THEN GO ERR} % NOT NUMERIC 006036100 
PTR2seCiF ClssPTR2e(3083))87 THEN PTR2.C3R815]41 ELSE 00036150 
_CPTR2801#1203084583)))3 % KEEP GROUP MARK IF AFIX 00036200 
END ELSE GO TO ERKS & ALPHABETIC STRING NOT A "FIX" 00036250 
SEQNUSETOKENS 00036300 
. JENS2 THEN & NUMERIC STRING _. 900036350 
BEGIN 00036400 
LPTR&sPTR13 00036450 
-IF_NEXTOKENCLPTRePTR2sTOKEN)=O THEN % GROUP MARK ss HSNO t—‘(C‘*:*™S 
IF LPTR=PTR1 TRKEN N2=43 & DELETE REQUEST 00036550 
END3 00036600 
—END % IF CKSEQ aa Sates Fev NacS, 00036650 2 Saale ee we ea Bee 
“ELSE IF SE@MODE THEN SEQNOtS( BASE SSbASEFINCR)S 00036700 BS 
IF N NEQ 4 THEN & N@T DELETE REQUEST 00036750 oo @ 
Hote BEGUN) 25 on Sk ie tart tc eae ate ee at we 90086800 yy 


t 
{ 


@ i) 
SIZES SCPTR2A.CI3Z81L5I=PTRIC 3381S] X8+e TRE, L308 3)"PTRI.L30383)3 00036850 
@ SZ6423=S1ZE,(368613 SLi:eSIZE,L42tol3 00036900 
‘spoon een « REFORMATCPTR12S26499¢12(SFLG AND (N NEG 3) )sSECPTReSEQNGAB)E 00036950 | spt atl Ae as ote Sta 
: WRITECPATCHs 10sBC¥I1)3 00037000 
eo. ENDS 00037050 
PO  EUSEELG THEN & SEQUENTIAL Ty¥PeE Flee . OOUA7LOO. . pedal teene Ree ne ey 
t BEGIN 00037150 
@: PWORD S=SEQNO8NE1245:3)8CPATCNTS=PATCNT+REALON NEQ 4))04332316]3 00037200 
Ol ieee: PPTR&sPPTR + 13 | iis neck hacer AD oa 0) Big ad ride MeO tal eee lt OOM, aa 0 Po be tte oe os ne 
! MERGTOG '= MERGTOG OR (N NEw 2)3 & DELETE (4) OR FIX (3) 00037300 
@: SORTAACPPTR, C3588)sPPTR.»(4325)]%=P WORDS 00037350 
Mun ussnysu TE NOT SEQMODE THEN TE SEQNILUEG PREV THEN. SORTAR Ga THUG). - <0 cee seen. ake Bis a eet acetate ne oh pee es 
ie PREV t= SEGQNG3 00037450 
r a END ELSE WRITECWRKFIL®10sBL*J)s & DATA FILE 00037500 
Ol SG PO SIN Ee DEIN a ech a ht 9 Men OS Ae dt tc ts PIO AFB oats cnn 2a has aa doce sta adh Stans rn ei estats 
13 EXIT: 00037650 
@: TWXOUTCALOIJ2021)3 MSG(1020)3 & "WALT" 00037700 
4 TR BLNKCNT GTR O THEN MSG(7»BLNKCNT)4 % "EMPTY RECORDS DISCARDED" | 00037750 es 
r IF ERRCNT GTR O THEN MSG(8sERRCNT)§ & "MISSING SEQe NUMBERS" 00037800 
@” IF TRNCNT GTR O THEN MSGC(9sTRNCNTI3 & "TRUNCATED RECORDS" 00037850 
i) END PROCEDURE TWXREAD; _ 7 Sinhekt @ tee cecum ten to MOOT OO ecg city. Ge sae tobe abana oes 2 
a REECE REINER H REN EINE HRA EERE NMR RHEE HREEOOOSBOOO 
r BOOLEAN STREAM PROCECURE FIXCHKCAL»UL,G2sNieN2sA4)5 VALUE AL, AGS 00038100 
onan RII CII UII ISUIIOIIIOIDISII IOI JUICIIIUISIUIOIDII ICI IIDC IOI IID Ulidine tie 00038200. ae ee eee eT OD 
2 COMMENT A1 IS ADDRESS OF ACO]> 00038300 
@» 01°02 ARE START/FINISH ADDRESS OF "ULD STRING", 00038400 
‘ 4 _Nd*N2 ARE START/FINISH ADDRESS OF “NEW STRIQG". J itetiitat bata Ge Bnet one OOOIBSOC: .. eee ee ee 
S ops A4 IS ADDRESS OF END OF INPUT RECORD 00038600 
a Bo ROUTINE EXAMINES "FIX" SYNTAX AND ESTABLISHES ValLUES FOR 00038700 
SR _-OL#02¢Nt AND N23 00 aa gh are a ca oe Se OOO SOA 0 oa oF ae cilia agar se 
8 q BEGIN LOCAL SVsD»/A33 LABEL Li» EXIT3 00038900 
3@ STSsA4s 2°C40(ST2£sSye13 IF SCELEFTARROW THEN VCUMP OLT 2 TO L1))3 00039000 
bit ABSSSTI STtsArs Oyts_oc OF sss pene s aoe SOOO I OVO: oie i ok oe 
20CIF SC EQL " ™ THEN SIt=Sl+l1 ELSE JUMP QUT)3 x ; SCAN TO CHAR, 00039100 
If TOGGLE THEN GO TO EXITS &% EMPTY FIELD 00039200 
~~ DItBLOC D3 DIFSDI +73 DSI=CHRs % SAVE DELIMITER 90039300. 2 we 
IF SC=D THEN GO TC EXITS % NO STKING 00039400 
IF SC = LEFTARROW THEN 00039500 
cy Gt ET as ote el arash SE Bs gh 2 fa Gs Sones ial eaemarlo th etiyeud ter oo USO OOO 
SV#ESIs SISSLOC SV STteST+5s VIEELOC ABs DIt#01453 00039700 
IF 3SC=2DC THEN % LEFT ARROW REPLACEMENT 00039800 
UN cerca nts lees etl, inte aay age are a che beh a ee OUI OOOO... ays ha 
SlteSleis SVss513 SI:=LUC SV} DI:2013; UStswOSs Slt=SV3 0040000 
ST#sSI413 SyssSrs STP=_LUc SVs DIt=C23s DSt=wOS; 000401400 
a ene LE BLOC SUS DI Sands DSsewOss STssSvs UP OD 
SIs*SIl#13 SvesSt3 SItsLQc SVZ D1:eN23 OS?=WDS; 00040300 
TALLY#a13 FIXCHKSSTALLYS GO TO EXITS 00040400 
seh seat -END LEFT ARROW REPLACEMENTS OO OOO 
S[t=SV3 00040600 
ENDS % IF LEFTARROW 00040700 
SVisS13 SIs*_LOC SVs DIss0l; DStsnoOSs Syi=Svs % START OF UL STRING 00040800 
63¢IF SCBLEFTARROW THEN ® CHECK FOR END OF RECORD 00040900 
BEGIN 00041000 
a SVERSTS SISe_OC SV3 SLgsST+53_ “DIssuoc. ABs O18 s01453 00041100 oo. eee ae 
IF 38C#0C THEN JUMP OUT TO EXI13 00041200 
SI3sSv3 00041300 
END} Aiea Qo041400 
IF SC NEQ D THEN sltsSI+1 ELSE YUMP OUT); 00041500 
MY TOGGLE THEN 7 TO EXITS ¥ MISSING 2NOD eral a 00041600 


SvisSIs SIts_OC Svs Di tao2s OStew0Ss SleeSys *END OLG STRING 9909414700 | 


Data Decumenis/Inc. 


| @ ¢ 
| STsssle413 SVs=SrI3 SlésLoc Sv; DI®SN15 DStswOSs SLtsSV3 B NEW STRING 00041800 
oe, 63CIF SCSLEFTARROW THEN % CHECK FUR END OF RECORD 00041900 e 
et _ BEGIN. fen ig Silda Macho gies, Shatner ate at, en Be, om, asp cctnce's MOMMA OOE.. <i solar salts seta siat aa aa ea SEL, etcetera 
4I- SVs=S13 SIss_OC Svs Sl3=SI+93 DItsL0c Aas Dl3x01453 00042100 
@. IF 3SC#0C THEN JUMP QUT ELSE SIisSv3 00042200 /@ 
[ie ere IND i Glee tear R ea cert ah cal te een lale nd ms sence en trie me Act O9 fan ting ROO UM SMOON 6 Se. paclctn gicea nian Solemn ee ate pier 3 
("| “S1tsS141)3 00042400 4 
eo: SItsLOC SV} DIt=N2; OS:=WDSs &# EwD NEW STRING 00042500 |@ 
Oat elon MACE VERT 2 cP UX CHK STAGING 00 8 fy Saw dp enncer eeu Oger eton, Seth wee Ye  ODURRBOOS. weheoutidattracectet tree, Ete ct 6 
/ EXIT: 00042700 7 
@. END STREAM PROCEDURE FIXCHK} 00042800 |@ 
BT yl OE Ne IOI OIG IOI IOI RICCO i it tk RENAE **nQ0042900 prea t ie ara neat aa cate Tae A a rn ee ee ee RE nn ee ee 9 
ie BOULEAN STREAM PROCEDURE LOCATE(H1sB2,83 54 Ls OL ec) 00043000 
 ] Yh, See ee ee ee eee oe aoe /@ 
os wwe OMMENT Bi IS ADDRESS OF Blole I oe ech ec OPO R  N e 6 161017 6 10 "3 
B2 IS ADDRESS OF START UF "EXISTING" STRING, 00043300 ia 
ei B3 IS ADDRESS OF CHARACTER FOLLOWING LAST NON@BLANK CHRe IN RECORD» 00043400 W@ 
Mm Ba IP ADORESS OF BEOJ_IF NOT TYPE DATA» OF BL10) IF TYPE DATA _ OOO F500 sto eee alt ee ee 15 
he L IS RECORD SIZE»(2x)36 CHR. IF NOT TYPE DATA? (2x)40 ChRy IF TYPE DATAs00043600 
r ROUTINE MATCHES "OLO STRING" AT ADDRESS OlsLENGTH SZ0 WITH 00043700 |@ 
wi CONTENTS OF RECORD FOR "FIX" STATEMENT» AND SETS H2 AND B3 JF MATCHEDs 00043800 |... ‘8 
19 VALUE Bl»s84eL5019SZ0; 00043900 19 
@* BEGIN LOCAL SV»03 LABEL LisL2rEXIT3 00044000 21 @ 
Ma SLE OLA DTP BLOC 0% Dit svI+73 USISCHRS % SAVE FIRST CnARACTER = 00044100 = 
122; ST%sB13 00044200 " 
@ » 2¢LCIF SC#D THEN 00044300 
BEGIN. see Ea Sa SAN sta ct ea Pt ee Niet ae ae eee 2 ee eS WII o, co nis 2.4. ws ascnaeonneoms 
— SVteSI$ DIt2013 IF $Z0 SC = DC THEN 00044500 
rd] BEGIN 00044600 
SLESLOC S¥3 Cltsg23 nSt=wOSs JUMP OUT 2 To Lis ooQuau700.. 
ENDS 00044800 
e SIt=SVi 00044900 
Bah NO By sce A tse Tg ho pe RE SE Ot leg hota BP eaten ctw OU SO OUP.<.. 2 11200 st aes 
SyrmSl+#1))3 00045100 
@» GO TO EXIT; 00045200 
wo hE SYSSBas SyteSpeys vee ee a oe 0045300. 
a 2¢LCIF SCa" " THER Sitss1- =1 ELSE sUMP GUT 2 TU L2))3~ 00045400 
ee L2! StrsSl¢i3 SvisSIs SIlt=slLUC Svs D1t=833 DStenbo3 00045500 
ME coli TAL Ses LOCAT Ee et reel. sstegetla ste szeunea Mares ates Os cate Aes Samat eatin ree tS AMO UOU RRO U~ <1 -anatcks Suet oee 
et EXIT: 00045700 
@» END STREAM PROCEDURE LOCATE 00045800 
e TLETeTCOLCLCC SCLC LC ETE LETT TTT TTL TET T? RW de te tk te tie oe eae ee eee tee HH 00045900 33 
STREAM PROCEDURE EDIT(B2*+B4eB5*S2OsN1>SZNsoSELG)> 00046000 " 
@ | EPERT ED CTC ee ee oe ger oo «|@ 
aM _COMMENT B2 15 STARTING AQDORES OF "EXISTING" STRING»  ——__ 00046200 | Sb ed wees ere et 
43 B4 IS ADDRESS OF B[9] IF NOT TYPE Dalas OF BL10) IF TYPE DaTaAs ; 00046300 4 
@ B5 IS ADDRESS OF BL20}» 00046400 ? 4@ 
ig eres S20 IS LENGTH OF "EXISTING" STRING» disease sag ease a ia a a OEM O50) Osi or A woh, i 
46 Ni Is STARTING ADDRESS OF REPLACEMENT STRING® | 00046600 46 
ev SZN 1S LENGTH OF REPLACEMENT STRING» 00046706 md 
“SFG TS TRUE IF NOT TYPE DATA FILE> ee ee ae __ 00046800 a 
ROUTINE REPLACES "OLD" STRING WITH “NEW" STRING NG FOR "FIX"? 00046900 4s 
@ VALUE B2#B4*B5+SZO0sN1sSZNeSFLG 00047000 . so @ 
BEGIN LOCAL SEQs Pees een eA eee eee ae OO aos tn oe oe oll acto fae MY Oe etch tas! wat olha ts es 
SFLG(SI8=Bas DIt=LOC Sus DSt=WOS)3 & SAVE SEQUENCE NUe 00047200 5 
D1:=B43 2CDS#s4OLIT" ")3 06047300 s1@ 
_SUtsB25 SIt=ST+S2ZC$ DIs=B55 2CDS*=4OCHRI5 OUT HOOD Sie ais Bin Rs ce aA Sa ieee ER ee PP oe 
SI1t#N13 O1%823 DS32SZN CHR} 00047500 65 
SItsB53 2¢DSt840CHR)3 | 0004760G so @ 


SFLGCSI'sL0C SEQs PlisB4s DStEWOSIG a as So A ret So OE ODE nee : 


Data Documesits/inc. 


| ENO STREAM PROCEDURE EDIT; 00047800 
& FoR te TNT II III III ROI III II IOI RI IOI IOI ii tek ttt 00047900 
Nepeen nee STREAM PROCEDURE QUIFORMATCAL» Bis B4sSQShe SFL Giz. seule asics a pce one OOOO. SN 28th Nae tee as, 
1 III III CIS SISOS IIUI SISO UIGISISOIS ODI IIS IG Org iio iti kin 00048100 
@» COMMENT Al IS ADORESS OF alOJs 81 IS ADDRESS OF HCO)» 00048200 
yo Ba TS ADORESS OF 809) IF NOT TYPE DATAs OF 8C10) IF TYPE DATAs 00048300. Gatteh als ae 
4 SGSH IS TRUE IF "SQUASHED" UJPTION SET, 00048400 
@ | SFLG IS TRUE IF NOT TYPE DATA FILE» 00048500 
oo _._ROUTINE REFORMATS RECCRO FOR OUTPUT TO REMOTE STATIONS sss 004 8600 Bat ee Pete a 
/ VALUE AlsB12B4sSQSH»SFLG} 00048700 
@: BEGIN LOCAL SVsSEG$ LABEL EXIT; 00048800 
| DISS ALZ DStSBLIT" "3 Srisais DStE9WDS; DItsais ss 04 8900... eee is 
uy SFLGCSIs:=B4s OIt=LCC SEQ DSsswOSs & SAVE SEGe NUMBER 00049000 
@' D1:=LOC SEQ OSt= 7 FILLZ SlsslLOc SEGs Dl t2a13 000494100 
ee BCIF SC="_" THEN SISSS14)] ELSE DoteChR)e 0049200 
is DStsLIT" "3 SVseDl3 DIssB4s OStBL IT" "5 Hypsesvos 00049300 
eo: S1t=B13 00049400 
aren SQSHC SSP ae perchces tes eke Sines Saas aae el eiemnan de iehee cteaten alte a ae eee a MOO UWS O02 208 oc cent chteakececd 
i 2040 IF Sca" ™ THEN. 00049600 
e” BEGIN SIseSI+13 IF SC NEQ " ™ THEN OSssLIT" "3 END 00049700 
OO eee el SEIS 3CHR IIE. ig Gala ti ahead aed Daca ities 2 ea IN os Minch ciel aet cease cei ma ace PaAe tee NO OU WORU Us ecw a. ada aetna seen — 
f JUMP OUT TO EXIT)3— Deena 
eo” 2¢DStS40CHRI$ DStelL IT” "3 | 00050000 
alee ca MEET. skies sein oh RUA rete orton, < est Esa aacnas ce DR ata ee a OS OED OE 5 aya piesa inc eh ea eee SE Sie eral 
Be END STREAM PROCEDURE OUTFORMATS 0005020C 
r Pa FI II II OOOO III IO IO IOI OI OIG I III II III Gin tieicieto 00050300 
by wn II III IO OIG IOI IOI III OIC IO IO IIIa SU IOI IOI tte nice #00050 40.0. ae Fear tas ceca th dso fetes Sohal dN Dea tent DAE LIE SS, 
ps EOF MARK =1000000003 00050500 
@ ACUJ$=03 A1LS=SWHERETSC(ALOJ)3 % SET "A" ADDRESSES 00050600 
> _DISKWAITC1sA2302COMMON)S % GET ESP RECORD OO ORONO 
a  LINEtsDECONVCACY].040:8))3 % DECIMAL VALUE OF LINE AG 00050800 
@- SNAME t= " ™ g "4S"r6:56812)] « LINelL16:30218]; 00050900 
(}—_——----SEbG + PS CAL PRS te SO ea rr eT te ne rat ah at Ce OC OT ONO cs hn a 
00051100 
e: BLUJ:=03 BIS=WwHEREIS(BL0})s % "B" ADURESSES 06051200 
pa Ba EWHERETS CBC LOMREALCSFLG)I)3 BOSEWHERETSCyl20))s 0051300 
ial RECSZ7t= 40 = 4 x REALCSFLG)s &% 172 KECURD LENGTH oous140c 
@ USER t= AL2]3 0005150G 
a SE QMODE FS AL7T I) UTR O THEN 6 SEWLENCE MULE GrehallON oo 00Ub1600 ee eM Se hes ee 
iy BEGIN 00051700 
@ INCR t= AC8),021227)3 % SEQUENCE INCREMENT 00051800 
seis Mes ONSE, SROML De lOUe 27) 58 ERCRS pc ll Ua Pre UG he oe VOOURTOOO. nc ne et 
is ENDS COU5200C 
@« AG t= Al + G9 + QOUS201C 
i acre CIF NOT SFLG OR CSFLG AND N si3 EVMO0E) TrEN 2 ELSE O)s OO OOuUb 2020. ee 
i FIUL NEWTAB WITH SNAME & WT"C12:42:6),USERs % "17" JAB FILE 00052100 
@ FILL PATCH WITH SNAME*USERS % "1S" PATCH FILE 00052200 
mo ILL WRKFIL WLIW SNAMESUSERS & "25" WORK FILE 05 2300 ct pi eiee EE NAS hates eee 
fe FILL SOURCE WITH A[3]}*eUSERS & SUURCEFILE NAME 00052400 
@ IF NOT SFLG THEN & TYPE DATA FILE 000525c0 
feo BEGIN connes nae ee aA Ae tS Le See OU DO O Denes oie Sita ER Be Cie oe 
9 DG BEGIN & TRANSFER RECORDS FRUM SOURCE® IF AY 00052700 
@ -: READ(CSOURCEs10-AC¥) )CEOF 123 00052800 
, WRITE CWRKE IL 102eACHI Ss UU —_ 09052900 Ba ee ee 
END UNTIL FALSE3 00053000 
@ 00053406 
ae — pene ae 00US3200 ; sees ie, 
00053300 
e@ CLOSECSOURCE)S TWXREADCFALSEsFALSE)3 00053400 
SENSE) GCN IS EEN RF a wh tec ep htt nc re A Boel oe Et See ee OD OM OOS 5 eee tt 
e 


Data Decuments/tnc. 


mmm a mma ne te ee Hoke chooks = SapiG Risa. Sine gle iad merge Steen Sd Sas me dS pel ane Bsa ant jane eit ngmrOSieavbaRA Lusi idee ani sd Gul RAT Rusa ta id dota aie Oe a rl ee ae La dauldanigts 


| 

| GO TO EXIT 
| 

& 


36 oe . ._FOR 1250 STEP 32 UNTIL AAPTR OO & MOVE BACK TU SORKTAA 


faa alte ele ah ns OORT TOO st 


ELSE 00061200 

BEGIN 00001300 
voowwwewne . DORTRBE CIBBSSIBR+1).03528) » [bbel4335) J t= aWwoRDs  O0G6iuo0. 

IF IAtsIa+1 GTR N2 THEN ASEQSSEOFMARK ELSE 00061500 

ASEQ t= CAWORD t= SORTALIAJ) .(21217)3 00061600 

iS ata Be OP Spee tl at at ete ata lea Ol ea aghast Mad Dic uae va te iaslted Metts tees .. 20061700. 

END UNTIL ASEQ = EOFMARK AND AASEG = EQFMaRK, 0000180C 

AAPTR $= AAPTR + \2 + 13 % TOTAL NOs IN SORTAA 00061900 


QQ062000 


rd] 
00054800 
e ENO % IF TYPE DaTa FILE 00054900 
Se nee ee, TD WXREADCSFLGs SEQMODEIF ae es Beers vacoeacy 
a IF NOT SORTOG THEN GO TO STARTMERGES % NO SORT REQUIRED 00058500 
& H % Ooeeereerenoeetoneangs ea START SORT BE eee ee ean 00058600 
a AAPIR 25 1F PPIR GIR S12 THEN 9112 ELSE FPIRS 200 0 oe, 00058700 _ 
4 FOR | t= 0 STEP 32 UNTIL AAPTAR vv 0005880C 
eo: FOR J t= 0 STEP 1 UNTIL 31 ou 00058900 
OL SORTALI 4S 12 SSQRTAALLAL3DEBleJ1s & MUVE TO SORTAs Siz WOSe MAX... .. 00059006. ~ 
" IF AAPTR GTR 0 THEN SCRTCO*AAPTR)S & CALL SCRT RUUTINE 00059100 
@- FOR y t= 0 STEP 1 UNTTL AAPTR DO 00059200 
So SORTAAL Lel3528) » Lef4385) ] $= SORTACII3 4 MOVE BACK TO SURTAA. 00059300... 
D WRILE AAPTR LSS PPTR [DO % SURT/MERGE REMAINCER IF PPTR GTR 911 00039400 
eo" BEGIN 0005950¢ 
cnt aeiae NBA UNDG SO ROTO EG ST i ls ena la ete ee ig oa ONE ROUe. 
¥ IF N2 GTR PPTR THEN N2 ts PPTR3 00059700 
@'. FOR I t= N14 STEP 32 UNTIL N2 DU 00U59800 
FOR. J 8s 0 STEP 2 UNTIE 31 pu lee icra Sidi dupy OU SOGOO a5, <,,.25 
is SORTACI¢J°N1] $= SCRTAAL I,[32%8J » J 1s % MUVE TO SURTA 00060000 
ee” IF (N2$=N2°N1) GTR O THEN SORT(O,N2)3 0006010C 
Ne See enn Ne AR. pe Oe PER. 33.713 4 MERGE SORTA wlTa SGRTAA | agbeg20c 
ASEQ t= CAWORD == SORTACIAI) .wleis27]);3 00060300 
e* AASEQ t= CAAWORD = SORTAAL JAA«(3538] » TAAL 4325) J ) «f21327)3 00u60400 
AM ae ate Sedo NE MBE GY Ns, een een a ee es DOOBOROD 17 sai5, ; 
ee IF AASEQ LEQ ASEQ THEN % USER OLDEST ONE FIRST. 00060600 
@ » BEGIN | 0oo070C 
cee = BORTBBLUCTB BS sl BB+1).03926) » 186.(4329) ] ts AAWORDS. 00060800 __ 
3 IF IAAtSIAA+, GTR AAPTR THEN AASEQ?=E0F MARK ELSE 00060900 
@ AASEQ?SCAAWORD# sSORTAAL [AAe(3528) » TAA.C43%5) J ) o£2192735 00061000 
@ 
@: 
e* 
@ 


” READCSORTBBC1eL35%8] » *] » 32 » SORTAALTe( 3548) » *))5 00062100 
3 ENO WHILE STATEMENTS 00062200 
SWAPS & RETURN CORE SPACE : Silat aieees Cesc wie OO OCA SOO! moto e 
bd Rarteoccveves 00062400 
STARTMERGES 00062500 
Le _ 90062600 | 
~ SORTAAC CPPTRS=PPTR+1 ). C3598), PPTR.C43IS) | t= EGFMARKS "90062700 
READCSOURCELNO]»10eTL*]) CEOF4IS * TEST EUF POINTER 00062800 
TD I ae Pia tags os an Diehl wate nes AE gh access Prenrcsicctws gc ple ees eo me, Bw hI at SOONER OOO. 2 
Oe eee 00063000 
EQF4:; % NO RECORDS IN SOURCE FILE € EGF POINTER = 1 23 00063100 
__.. bere aRyaG—OR Si ns es winnaar Neth oe al SE nO 00063200 
IF NOT “CSORTOG OR MERG TOG) THEN ® NO ALTERATIONS REQUIRED 00063300 
BEGIN 00003400 


Eads _CLOSEC SOURCE) 3. LOCKCPATCHs*)5 % PATCr 32 WORAFILE 
NCO]P=PPTR@1s &@ aCRKAFILE EUF POINTER 


_..09063500 | 


00403600 


FOR $%=O STEP 1 UNTIL PRTR PG &® @UILE Tar FILE 0063700 
jp ioug BEGIN, 2 ese, 00063800, 
IF NPTRs#nPTR+1 GIR 29 TREN % WRITE TABFILE SEGMENT ON DISK — 00063900 
BEGIN 00064000 

__ WRITECNEWTAB»s 30eNE*I))) 00064100 


Data Documents/inc. 


om r~ om new rn = 


ag 


i 


a 


gE FRR BT 


we 
a 


oe 


a 


[———----~ 


epotete STE sce sak neu gettoeh G Sick “areata elt eat 


a OMe Kesh 2th casraesinre nested di bicrc dads 


ENDs 
NENPTRISSSORTAALI se fL35% 8] oT el4s Si Jelesielys € I 
END ILOOP3 
WRITECNEWTABs 309NC*) 23 
ee eG TO EXITS. 
ENDs & JF PATCH kee “BECUMES. “WORKE ILE. 


C4i32%19)5 | 


LUCKCNEWTABs*)» 


PSEQ?=(PWORDI=SORTAALO0))« t21227)3 
_.. CODE? sPWORD.»£13313.. 
NCT 32 =1;3 
REWINDCPATCH)$ PATCNT ?3 =13 
ae RM Me Be <p Dagepteantipetth “ex MAtiouth dearat i Hae acetate Nae sa es Catan Re cin ae a ae a AL ay uate te gles 
TLUOP? 
% oe 
READCSOURCEs 10>TL*) )CEOFS)3_ 
TSEQ t= OCTCONVCT£L9I)3 
GO To COMPARE} 
ECFS: TSEQ t= EOFMARK; 


etee 


®’ 1ST SEG, NUMBER IN "1P" FILE 
PETC agit a an 


eh aa 

Batnace 

_IF TSEQ LSS PSEQ THEN % NO CHANGE Tu TRIS RECORU 
BEGIN 
WRITECWRKF IL» 10*TCul ds 

_EQLTOGS=TRUES SEGS=TSEGs | 

ENDS 

EQLTNG 


GO TO WRITENEWS 


t= TSEQ=PSEQs % NEW RECURD SEQ, MATCHES OLD 


PCYCLE! 
Ketones 
iF PSEQ=EQFMARK THEN GO TO ENDMERGES 
IF CODES4 THEN % DELETE CODE 
BEGIN 
_BEULL 


BF. FALSE} En eet eet 
PREVI=PSEQ3 % SAVE CURRENT PSEQ@ NUMBER 
PPTRIt=PPTR+i3 % GET THE NEXT PSEW NUMBER 

_ PSEQSSCPWORDSSSORTAACPPT Re (3625I]2PPTReC43t5)))ters27i3 
CODE!=PWORD.(123)3 
IF PSE@=PREV AND CCDES2 THEN GO PCYCLES % NEW RECORD FOLLOWS 

LF EQLTOG THEN GU TO TLGOP ELSE 30 TU CumPAREs 

ENDS % IF CODE = 4 

CODEs3 THEN % FIX CODE, 


BEGIN. 


CHECK FOR RECORD FIRST 


00700 = 


mn NOL -U e A1 Reaee e e eereee 


OGUG4Z00 
00004300 
QOC64400. | ents, dtd, seaetenins 
OUUG450C : 
00064600 


80064700. | er ne oe oe ne eA EE ‘ 


OOUH4B00 33 
OclUda4g00 
0.005009 Re a wen cents eae ie =. ees ee So 8 
00065100 i 
00065200 
OOO SS 300 leanne ne _|° 
Q0VE5400 ho 
00065500 


ee OOUGS6 00s ee eet ue eee ee ee 2 


00005700 he 
00065800 . 


MOOG G0 0 co ail ait nena a ie 


00066000 16 
00066300 


DO Od act flied ieee eas Bh ao be 


00066300 Lg 
00066400 


gens OVO ORO iy Seed. . x enbuislges puedes AS aetna tis al : i. 


00066600 f 
00066700 


00066800 Ss eed Se tee esas: epee anette eae 


00066900 2 
00067000 


00067200 baa 
00067300 


bla et a  a eM OF BOO! ie 5 ie oe Scene een a 


00067500 
00067600 


00067800 : 34 
00067900 


dO BOO Ocak pi ae eee oe, SS Be 


0006810C 37 
06068200 


90968300 2 fie - 


00068400 - 
00068500 


-.. OLVG8690 chy: Bee i inca ea rat aera a A Ail 


00068700 : 
00968800 


IF NOT CEQ@LTOG OR BFULL) THEN % NU SUCK RECGRU 
BEGIN 
_MSG(2*PSEQ)3 _% "NOT IN YOUR FILE 
GO TO NEXTP3 
END; 
si ig te Ns came, ce en On 2 A a ue ee dpe ne een 
IF PATCNT t= PATCNT + 1 NEQ@ PWORD.C4?16) THEN & OUT OF ORDER 
READ SEEK CPATCHEPATCAT? sPWORDeL4216)))3 
TF CODE.NEQ@ 3 THEN % NOT A FIX COMMAND a 
BEGIN 
READCPATCHs1008C4))3 


000909200 


. 00969800 5 iat eee: 


00968900 . See rere eer : 
00009000 ! 
00069100 

00069300 49 
00069400 
00069500 : ete Ee atndars: a 


“00069600 
00069700 


00069900 sone oe i bate bier : 
00070000 e 


a ea PE Se Si at ate Oe Se ee te oe MED a Se en OUT OLOU S 


Data Documents/inc. 


GO TO NEXTP3 
END3 
wnwee MEADCPATCHs2 102 A0*) 23... 


0000/0200 
00070300 


‘ IF NOT FIXCHKCAL*OLs02+NisN29A4) THEN & "FIX" SYNTAX ERROR~ 00070500 
@. BEGIN 00070600 1@ 
(3 ee  MEGO3@PSEQ)S & SIMPROPER FIX" sae : .O000790700 3 
7 GO TO NEXTPS 00070800 ‘ 
@: END} 00070900 |@ 
jo N29 £33215] GTR AG THEN % SHOULD AUT BE HERE a ee LOL Ge 90 5 8 een Re oS Re STS Senne eee ey 6 
BEGIN 00071100 7 
e- MSGC4»PSEQ)3 % "MISSING GROUP MARK" 00071200 tag 
Ho GOTO NEXTPS aes are ere suetees nae ume etm ewe eer ee 9974300. . tye Me os a eaten Oat Me bese ee i 
yo END3 00071400 to 
@': IF NOT BFULL THEN & GET RECORD TO BE "FIXED" 00071500 |@ 
Ne ee dod OTN bc ecient a ed Stat coe ret Ee Pie tt A Otcehsnin van aie tral UE One: ana eee sa Ie pen ee ee ee ee 2 ee 
4 MOVECLO9TsB)3_ | 00071700 "3 
@:: BFULLE=TRUES 00071800 @ 
{ENDS so eoisdacastebiel taser Pe eS a ttn oe OU PAO OE : ie Re cc tee ee 
16 IF NOT LOCATE(B15B283-84,RECSZeU1s9Z02=5]12(01p02)) THEN 0007z000 16 
eo, BEGIN 00072100 |@ 
Pannen MS GCS 2PSEQ)S % MCANNOT FIND FIX STRING" ees pas Me aoe yO ae ary, OO CBU: Need tee ees iat ate 
‘9 a AL NEXTP3 00072300 "9 
@ | 00072400 24@ 
Pal and aOhooh eh a § 12 B3,B4) LSS (SZ2NSS8SIZCNJ2N2))"SZ20 THEN prec Pec acre hen ee eee ee eer ne ert 
22 BEGIN 00072000 2 
@: MSGCOsPSEQ)$ % "NCT ENUUGH RUGM FUR FLX" 00072700 1 @ 
PN oe Bhan ool TANNER TPA teat cocandstaitehetssnctn AeA sishie cadens trades nit She ec taee) ot dnt ou poss ce ae tak 00072800... Se ee eg ae ee ee 
25 ENDS | 00072900 2 
@ EDIT(B2s84s85»SZ0+N1+SZN*SFLG)S ® REPLACE OLD STRING WITH NEW STRING 00073000 2 @ 
ia es Ng Sipe hit ag eRe Seca, el Oe ts eg aes RIDE oath ate, Bide iT Si Ae te DOOLTI OO: oh ed ee, es 2 

NEXTP? & LOOK AT NEXT "IP" woaD 00073200 28 
] heise 00073300 | @ 
1 PRE Vt=PSEQS % SAVE GURRENT "1P™" SEQUENCE NUMBER oi ate Se ales ans SO OOUTBAOOs 1 0." SB ft I ree pens Meath tt eet a 
31 “PPTRt@pPTRel3 & CHECK NEXT "1P" WORD 00073500 31 
@ ECaCE C382:5JePPIR.C4325)1).b21:2733 & NEXT "1P" WDe OOUTI600 31 @ 
CODEtsPWORD.[4! me oe 00073700 | ee er ae 3 
“TF PRE VsP SEQ Dee GO JO PCYCLE+ % DUPLICATE, MORE TO BE BOONE “00073800 34 
IF NOT BFULL THEN GO TO COMPARE; % {UNORE LaST INPUT 00073900 1 @ 
_WRITECWRKFILs10,B80))3 ate eee cee ahaa tater, toy ROO MOU Osea, i laren five she eee " 
“SE@IsPREV3 % USING THIS SE@, NUMBER 00074100 37 
Meare ary 00074200 3 @ 
wet WED TENE ce. co. tis tu Settee aeltatint tant Mente yt unseat ae Pate Mee ptt a no eee rake nis MOOUTM OOS... “naa. 2. 39 
Ber oneee 00074400 40 
IF NPTRESNPTR+1 GTR 29 THEN & SEGMENT I§ FILLED 00074500 «/@ 
__ BEGIN siesta 0074600. 43 
WRITECNEWTABy30sNC#))3 & OUTPUT TO DISK 00074700 4 
NPTRE®OS 00074800 4@ 
PE Dcen eee "1,10 Seen See OLE RETIN See ce eT eae Ren Te Se ae Oe tee a el OOOT AGOGO . 
NENPTR) 2808 SEQL21221227)8 (NCTIZNCTY¥1)0 42 32216)3 00075000 c 
BFULLt=FALSES 00075100 |W 
IF €QL TOG JHE: NGO TLCCP 61 SE G COMPARE 63 oh i a eh 00075200 were i 
, epee 00075300 49 
ENOMERGE! 00075400 4 @ 
_arteoensee ee ANAT OCT RO I crea 00075500 : Be ween a 5! 
IF NPTRI=NPTR+1 GTR 29 THEN &% SEGMENT IS FILLED 00075600 5 
BEGIN 00075700 «| @ 
___WRITECNEWTABs 30eNC4])3 % OUTPUT TO DISK sss pe SOO we, SD Aan cee ete sa 
NPTRE=03 _ 00075900 53 
END} 00076000 sl @ 
FOR TtanNPTR STEP 1 UNTIL 29 DO NELISSEQOFMARKS 00076100 5 


Data Documenis/ inc. 


WRITE CNEWTABs 309N(*]); 


CLOSECSOURCE)$ CLOSE CPATCH)3 
. LOCKENEWTABs*)2 LOCK (WRAP I Let) 2. 


hetesg 
EXIT: 
Betas 


END PROGRAM. 


ENUSEND. LAST CARD ON OCRDING TAPE 


--492X219Y1330014166x2139Y1 3390024167 x%213 131001" OB X18 3aY13 1OOJ,w 230710539)... . rear Ca ah tN eect dh ae aE ale Dl a ws OE aon St I 


So ay: 


te nn twat a sateen enon ennilonee e 


00076200 
00976600 


0076700 Sa Ee Reet eee ye on 


00076800 
00076900 


... 9OU7 7000 ied ellie! Senders eae ca te eee iad SORES oe 


00077100 
99999999 


fine. 


ata Documents, 


y = 


14 
hs 
ns 
h7| 
18 
igo eee . . i ae - 
20 
24 
a ~ eee ae SS ~ 
& 
@ 38 
& si 
€ a4 
§ a7 
@ 
@ 53 


LABEL QOOQOOOOOPRINTEROOI75099CO EX OBJECT/READSF ILE SOURCEF[LE=SYMBUL/PAPERSENDE 


einen = attra nt tet te mint enn eit el ett tN ae lind beens pense 


—————---—g-9@ 


OBYECT /READ 


